﻿Public Class Items
    Private ID_Producto As Integer
    Private Nombre_Producto As String
    Private Origen As String
    Private Presentacion As String
    Private Peso As Integer
    Private Talla As String
    Private Costo As Integer
    Private Ncom As String
    Private ID_Tipo_Producto As Integer
    Public Sub New()
    End Sub

    Public Sub New(ByVal idprod As Integer, ByVal nomb As String, ByVal ori As String,
                   ByVal pres As String, ByVal pes As Integer, ByVal tal As String, ByVal costo As Integer, ByVal nc As String, ByVal idtipo As Integer)
        Me.ID_Producto = idprod
        Me.Nombre_Producto = nomb
        Me.Origen = ori
        Me.Presentacion = pres
        Me.Peso = pes
        Me.Talla = tal
        Me.Costo = costo
        Me.Ncom = nc
        Me.ID_Tipo_Producto = idtipo
    End Sub

    Public Property pIdProd As Integer
        Get
            Return Me.ID_Producto
        End Get
        Set(ByVal value As Integer)
            Me.ID_Producto = value
        End Set
    End Property
    Public Property pNombre As String
        Get
            Return Me.Nombre_Producto
        End Get
        Set(ByVal value As String)
            Me.Nombre_Producto = value
        End Set
    End Property
    Public Property pOrigen As String
        Get
            Return Me.Origen
        End Get
        Set(ByVal value As String)
            Me.Origen = value
        End Set
    End Property
    Public Property pPresentacion As String
        Get
            Return Me.Presentacion
        End Get
        Set(ByVal value As String)
            Me.Presentacion = value
        End Set
    End Property
    Public Property pPeso As Integer
        Get
            Return Me.Peso
        End Get
        Set(ByVal value As Integer)
            Me.Peso = value
        End Set
    End Property
    Public Property pTalla As String
        Get
            Return Me.Talla
        End Get
        Set(ByVal value As String)
            Me.Talla = value
        End Set
    End Property
    Public Property pCosto As Integer
        Get
            Return Me.Costo
        End Get
        Set(ByVal value As Integer)
            Me.Costo = value
        End Set
    End Property
    Public Property pNC As String
        Get
            Return Me.Ncom
        End Get
        Set(ByVal value As String)
            Me.Ncom = value
        End Set
    End Property
    Public Property pTipo As Integer
        Get
            Return Me.ID_Tipo_Producto
        End Get
        Set(ByVal value As Integer)
            Me.ID_Tipo_Producto = value
        End Set
    End Property
End Class
